object fmCalendar: TfmCalendar
  Left = 0
  Top = 0
  Caption = #26085#31243#23433#25490
  ClientHeight = 456
  ClientWidth = 590
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object cxScheduler1: TcxScheduler
    Left = 199
    Top = 0
    Width = 391
    Height = 456
    ViewWeek.Active = True
    Align = alClient
    ContentPopupMenu.Items = [cpmiNewEvent, cpmiToday, cpmiGoToDate, cpmiGoToThisDay]
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    LookAndFeel.Kind = lfOffice11
    Storage = cxSchedulerDBStorage1
    TabOrder = 0
    Selection = 7
    Splitters = {
      F70000007E0000008601000083000000F200000001000000F7000000C7010000}
    StoredClientBounds = {010000000100000086010000C7010000}
  end
  object pnlLeft: TPanel
    Left = 0
    Top = 0
    Width = 191
    Height = 456
    Align = alLeft
    BevelOuter = bvNone
    Padding.Left = 3
    Padding.Top = 3
    Padding.Bottom = 3
    TabOrder = 1
    object vstUser: TVirtualStringTree
      Left = 3
      Top = 3
      Width = 188
      Height = 450
      Align = alClient
      Header.AutoSizeIndex = 0
      Header.Font.Charset = DEFAULT_CHARSET
      Header.Font.Color = clWindowText
      Header.Font.Height = -11
      Header.Font.Name = 'Tahoma'
      Header.Font.Style = []
      Header.MainColumn = -1
      Header.Options = [hoColumnResize, hoDrag]
      Images = dmImages.ilMain
      LineStyle = lsSolid
      TabOrder = 0
      TreeOptions.SelectionOptions = [toFullRowSelect]
      OnFocusChanged = vstUserFocusChanged
      OnGetText = vstUserGetText
      OnGetImageIndex = vstUserGetImageIndex
      Columns = <>
    end
  end
  object Splitter1: TcxSplitter
    Left = 191
    Top = 0
    Width = 8
    Height = 456
    HotZoneClassName = 'TcxSimpleStyle'
    HotZone.SizePercent = 56
    Control = pnlLeft
  end
  object dsBase: TDADataSource
    DataSet = tblBase.Dataset
    DataTable = tblBase
    Left = 276
    Top = 236
  end
  object tblBase: TDAMemDataTable
    RemoteUpdatesOptions = [ruoOnPost]
    Fields = <
      item
        Name = 'dsc_actualfinish'
        DataType = datDateTime
      end
      item
        Name = 'dsc_actualstart'
        DataType = datDateTime
      end
      item
        Name = 'dsc_caption'
        DataType = datString
        Size = 255
      end
      item
        Name = 'dsc_eventtype'
        DataType = datInteger
      end
      item
        Name = 'dsc_finish'
        DataType = datDateTime
      end
      item
        Name = 'dsc_id'
        DataType = datAutoInc
        GeneratorName = 'd_schedule'
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'dsc_labelcolor'
        DataType = datInteger
      end
      item
        Name = 'dsc_location'
        DataType = datString
        Size = 255
      end
      item
        Name = 'dsc_message'
        DataType = datString
        Size = 6000
      end
      item
        Name = 'dsc_options'
        DataType = datInteger
      end
      item
        Name = 'dsc_parentid'
        DataType = datInteger
      end
      item
        Name = 'dsc_recurrenceindex'
        DataType = datInteger
      end
      item
        Name = 'dsc_reminderdate'
        DataType = datDateTime
      end
      item
        Name = 'dsc_reminderminutes'
        DataType = datInteger
      end
      item
        Name = 'dsc_resourceid'
        DataType = datGuid
      end
      item
        Name = 'dsc_start'
        DataType = datDateTime
      end
      item
        Name = 'dsc_state'
        DataType = datInteger
      end>
    Params = <>
    MasterMappingMode = mmWhere
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = ClientDataModule.RemoteDataAdapter
    MasterSource = dsLogin
    MasterFields = 'bu_id'
    DetailFields = 'dsc_resourceid'
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'd_schedule'
    IndexDefs = <>
    Left = 238
    Top = 236
  end
  object cxSchedulerDBStorage1: TcxSchedulerDBStorage
    Resources.Items = <>
    Resources.DataSource = dsLogin
    Resources.ResourceID = 'bu_id'
    Resources.ResourceName = 'bu_name'
    CustomFields = <>
    DataSource = dsBase
    FieldNames.ActualFinish = 'dsc_actualfinish'
    FieldNames.ActualStart = 'dsc_actualstart'
    FieldNames.Caption = 'dsc_caption'
    FieldNames.EventType = 'dsc_eventtype'
    FieldNames.Finish = 'dsc_finish'
    FieldNames.ID = 'dsc_id'
    FieldNames.LabelColor = 'dsc_labelcolor'
    FieldNames.Location = 'dsc_location'
    FieldNames.Message = 'dsc_message'
    FieldNames.Options = 'dsc_options'
    FieldNames.ParentID = 'dsc_parentid'
    FieldNames.RecurrenceIndex = 'dsc_recurrenceindex'
    FieldNames.ReminderDate = 'dsc_reminderdate'
    FieldNames.ReminderMinutesBeforeStart = 'dsc_reminderminutes'
    FieldNames.ResourceID = 'dsc_resourceid'
    FieldNames.Start = 'dsc_start'
    FieldNames.State = 'dsc_state'
    Left = 238
    Top = 202
  end
  object tblLogin: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'bu_id'
        DataType = datGuid
        Required = True
        InPrimaryKey = True
      end
      item
        Name = 'bu_name'
        DataType = datString
        Size = 30
        Required = True
      end
      item
        Name = 'bu_cname'
        DataType = datString
        Size = 30
      end
      item
        Name = 'bu_pwd'
        DataType = datString
        Size = 30
      end
      item
        Name = 'bu_depart'
        DataType = datString
        Size = 30
      end
      item
        Name = 'bu_parent'
        DataType = datString
        Size = 30
      end
      item
        Name = 'bu_iid'
        DataType = datAutoInc
      end
      item
        Name = 'bu_defaultview'
        DataType = datString
        Size = 20
      end
      item
        Name = 'bu_managepower'
        DataType = datString
        Size = 20
      end
      item
        Name = 'bu_tel'
        DataType = datString
        Size = 20
      end
      item
        Name = 'bu_short'
        DataType = datString
        Size = 10
      end
      item
        Name = 'bu_mobile'
        DataType = datString
        Size = 20
      end
      item
        Name = 'bu_ling'
        DataType = datString
        Size = 20
      end
      item
        Name = 'bu_mail'
        DataType = datString
        Size = 60
      end
      item
        Name = 'bu_system'
        DataType = datBoolean
        DefaultValue = '1'
      end
      item
        Name = 'bu_jobtitle'
        DataType = datString
        Size = 30
      end
      item
        Name = 'bu_dateofhire'
        DataType = datDateTime
      end
      item
        Name = 'bu_computername'
        DataType = datString
        Size = 30
      end
      item
        Name = 'bu_ipaddress'
        DataType = datString
        Size = 30
      end
      item
        Name = 'bu_contractno'
        DataType = datString
        Size = 30
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = ClientDataModule.RemoteDataAdapter
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'b_user'
    IndexDefs = <>
    Left = 132
    Top = 260
  end
  object dsLogin: TDADataSource
    DataSet = tblLogin.Dataset
    DataTable = tblLogin
    Left = 164
    Top = 260
  end
end
